﻿Public Class ActorsPanel
    Inherits Panel
    Private actorList = New List(Of Receiver)
    Public Sub New()
        Name = "ActPanel"
        Size = New System.Drawing.Size(230, 130)
        TabIndex = 7
        BorderStyle = BorderStyle.Fixed3D
    End Sub

    Public Sub addActor(ByVal receiver As Receiver)
        actorList.add(receiver)
    End Sub
    Public Sub setActorsInPanel()
        Dim verticalOffset = 10
        For Each actor In actorList
            Dim actorView As ActorStatusView = New ActorStatusView(Me, actor, New Point(0, verticalOffset))
            verticalOffset += 30
        Next
    End Sub
End Class
